Private Sub DisplayFields()
    TextBox1.Text = rstProducts.Fields("productid").Value
    TextBox2.Text = rstProducts.Fields ("productname").Value
End Sub
